plot_dat <- tekjur_par |>filter(tekjuar %in%c(2020)) |>mutate(hlutf = einst_auka_fasteign / einst_heildartekjur,hlutf =pmax(hlutf, 0))p <- plot_dat |>ggplot(aes(tekjubil, hlutf)) +geom_area(position ="identity", alpha =0.8, col ="black") +scale_x_continuous(breaks =c(5, 25, 50, 75, 100)) +scale_y_continuous(labels =label_percent(), limits =c(0, 1)) +scale_fill_brewer() +coord_cartesian(expand = F) +theme_half_open() +theme(plot.margin =margin(t =5, r =15, b =5, l =5),legend.position ="none") +labs(x ="Tekjubil\n(0% eru lægsti tekjuhópurinn og 100% er hæsti tekjuhópurinn)",y =NULL,title ="Eignasköpunartekjur pars í sambúð sem hlutfall af heildartekjum eftir tekjubili",subtitle ="Eignasköpunartekjur: 2 x Ráðstöfunartekjur einstaklings að frádregnum neysluviðmiðum pars með bíl og leiguhúsnæði en án barns (464.000kr á mánuði 2020)")p